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-- BcdControl .Mesa Edited by Johnsson on August 30, 1978 9:17 PM 

DIRECTORY 

BcdControlDefs: FROM "bcdcontroldef s". 
BcdErrorDefs: FROM "bcderrordef s" , 
BcdFileDefs: FROM "bcdf iledef s", 
BcdHeapDefs: FROM "bcdheapdefs", 
BcdLALRDefs: FROM "bcdlalrdef s". 
BcdDefs: FROM "bcddefs". 
BcdTabDefs: FROM "bcdtabdef s". 
BcdTreeDefs: FROM "bcdtreedef s", 
BcdUtilDefs: FROM "bcdutildef s\ 

AUoDefs: FROM "altodefs". 

ControlDefs: FROM "controldefs". 

FrameDefs: FROM "f ramedef s". 

ImageDefs: FROM "imagedefs'*, 

lODefs: FROM "iodefs", 

MiscDefs: FROM "miscdefs", 

Mopcodes: FROM "mopcodes", 

OsStaticDefs: FROM "osstaticdef s", 

SegmentDefs: FROM "segmentdef s", 

StreamDefs: FROM "streamdef s", 

StringDefs: FROM "stringdef s" , 

SymbolCompressorDefs: FROM "symbolcompressordef s", 

TableDefs: FROM "tabledefs", 

TimeOefs: FROM "timedefs", 

TrapDefs: FROM "trapdefs"; 

DEFINITIONS FROM StreamDefs; 

BcdControl: PROGRAM [ 

data: BcdControlDefs. BinderData, 

parseg: SegmentDef s.FileSegmentHandle] 

IMPORTS BcdControlDefs, BcdErrorDefs, BcdFileDefs, BcdHeapDefs, BcdLALRDefs, BcdTabDefs, BcdTreeDefs, 
♦* BcdUtilDefs, FrameDefs, ImageDefs. lODefs, MiscDefs, SegmentDefs, StreamDefs, StringDefs, SymbolComp 
♦♦ressorDefs, TableDefs, TimeDefs, TrapDefs 

EXPORTS BcdControlDefs 

SHARES OsStaticDefs « 

BEGIN 



— stream utilities 

FileTooLong: PUBLIC ERROR « CODE; 

shortStreamlndex: PUBLIC PROCEDURE [i: Streamlndex] RETURNS [CARDINAL] ■ 
BEGIN OPEN AltoDefs; 
-- assumes a normalized index 

IF i.page > VMLimit/CharsPerPage THEN ERROR FileTooLong; 
RETURN [i .page*CharsPerPage + i.byte] 
END; 

longStreamlndex: PUBLIC PROCEDURE [i: CARDINAL] RETURNS [Streamlndex] ■ 
BEGIN 

RETURN [Normal izeIndex[StreamIndex[page:0, byte:i]]] 
END; 

-~ table storage management 

PageCount: TYPE « SegmentDef s . PageCount; 
PageNumber: TYPE = SegmentDef s.PageNumber; 

TableBase: PageNumber « 1; 

TablePageStart: PageCount « 8; 

TablePageStep: PageCount » 4; 

TablePageLimit: PageCount « 64; 

tableSegment: SegmentDef s.FileSegmentHandle; 
tablePages: PageCount; 

tableOrigin: CARDINAL; 
tableSize: CARDINAL; 

LoadTable: PROCEDURE [nPages: PageCount] » 
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BEGIN OPEN SegmentDefs; 
IF nPages § tablePages THEN 
BEGIN 

IF tablePages # THEN 
BEGIN 

Un1ock[tableSegment]; 
SwapOut[tableSegment]; 
END; 
MoveFi1eSegment[tab1eSegment, tableSegment.base, nPages]; 
tablePages <- nPages; 
SwapIn[tableSegnient I SegmentFault ■> 
BEGIN 

SetEnclOfFile[tableSegment.f ile, tableSegment.base + nPages, 0]; 
RETRY 
END]; 
END; 
tableOrigin <- LOOPHOLE[FneSegmentAddressCtableSegment]]; 
tableSize ^ tablePages*AltoDefs.PageSize; 
RETURN 
END; 

InitTableSegment: PROCEDURE ■ 
BEGIN OPEN SegmentDefs; 
tablefile: FileHandle; 
IF (tablefile^tableRequest.file) « NIL THEN 

tablefile ^ NewFile[tableRequest.name, Read+Write+Append, Def aul tVersion]; 
tableSegment *- NewFileSegment[ 

file: tablefile. 

base: TableBase, 

pages: 1, -- but never swapped as such 

access: Read+Write]; 
tablePages ^ 0; 
END; 

Initialize: PROCEDURE - 
BEGIN 

RepeatCommand[]; 

data. errors <- data. warnings <- aborted *- FALSE; 
data.nModules ♦- 0; 

data.textlndex <- BcdControlDefs.NullSourcelndex; 
data.currentname <- BcdDefs.NullName; 
-- DisplayOff[black]; 
LoadTable[TablePageStart]; 
TableDefs. Initial izeTable[ 

[origin: tableOrigin, size: tableSize], BcdDef s.BinderNTables]; 
BcdTabDefs.BcdTabInit[]; BcdTreeDef s. treeinit[]; 
BcdHeapOefs.InitHeap[]; 
BcdUtilDefs.InitUtilities[]; 
RETURN 
END; 

Finalize: PROCEDURE » 
BEGIN 

BcdTreeDef s.treeerase[]; 
BcdTabDefs.BcdTabErase[]; 
BcdHeapDef s .EraseHeap[]; 
BcdUtilDefs.EraseUtilities[]; 
TableDefs .EraseTable[]; 
-- DisplayOn[]; 

data. sou rcest ream, destroy [data. sources t ream]; 

IF comcm # NIL AND (data. errors OR data. warnings) THEN mustwait ^ TRUE; 
RETURN 
END; 

RemoveCode: PROCEDURE [link: UNSPECIFIED] - 
BEGIN OPEN FrameDefs; 
SwapOutCode[GlobalFrame[link]]; 
RETURN 
END; 

DefaultFileName: PROCEDURE [name, defext: STRING] - 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] - ' . THEN RETURN; 

ENDLOOP; 
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St ringDefs. Appends tring[name,defext]; 

RETURN 

END; 

-- Command gathering 

Cleanup: ImageDefs.CleanupItem ♦- [1 ink: ,proc:RequestFi1es, 

mask: ImageDefs.CleanupMask[ Save]]; 
comcmRequest: short ImageDef s . FileRequest *- ImageDefs.FileRequestC 

link:, file: NIL. 

access: SegmentDef s.Read, 

body: short[, "Com.Cm."]]; 
tableRequest: short ImageDefs. FileRequest <- ImageDefs. FileRequest[ 

link: . file: NIL. 

access: SegmentDef s.Read+SegmentDefs.Write+SegmentDefs. Append, 

body: short[, "Swatee. "]]; 
comcm: StreamDef s.StreamHandle ^ NIL; 
localPause: BOOLEAN; 
globalPause: BOOLEAN ^ TRUE; 

ReadCmdString: PROCEDURE [input, name, switches: STRING] RETURNS [BOOLEAN] - 
BEGIN 

i: CARDINAL ♦- 0; 
j: CARDINAL; 

activestring: STRING ^ name; 
c: CHARACTER; 

name. length ♦- 0; switches. length ^ 0; 
--skip leading blanks -- 
WHILE i < input. length DO 

c<-input[i]; 

IF c # lODefs.SP THEN EXIT; 

i ♦- i+1; 

ENDLOOP; 
IF i = input. length THEN BEGIN input. length ^ 0; RETURN[FALSE] END; 
--parse command — 
FOR i IN [i.. input. length) DO 

c<-input[i]; 

SELECT c FROM 

'/ => activestring ♦- switches; 

lODefs.SP, lODefs.CR »> EXIT; 

ENDCASE => StringDefs.AppendChar[activestring,c]; 

REPEAT FINISHED => input. length <- 0; 

ENDLOOP; 
IF input. length # THEN 

BEGIN 

j ^ 0; 

WHILE (i<-i+l) < input. length DO 
input[j] ♦- input[i]; j *- j+1; 
ENDLOOP; 

input. length ^ j; 

END; 
FOR i IN [0. .switches. length) DO -- convert all to lower case 

IF (c^switches[i]) IN ['A..'Z] THEN switches[i] *- c + ('a-'A); 

ENDLOOP; 
RETURN[TRUE]; 
END; 

ReadCmdStream: PROCEDURE [stream: StreamHandle, name, switches: STRING] RETURNS [BOOLEAN] 
BEGIN 

s: STRING ^ [80]; 
c: CHARACTER; 
DO 

c ^ stream. get[stream 1 StreamDefs.StreamError ■> EXIT]; 
SELECT c FROM 

lODefs.SP => IF s. length ff THEN EXIT; 
lODefs.CR «> EXIT; 

ENDCASE «> StringDefs.AppendChar[s.c]; 
ENDLOOP; 
RETURN[ReadCmdString[s, name, switches]]; 
END; 

RequestFiles: ImageDef s.CleanupProcedure ■ 
BEGIN OPEN SegmentDef s; 
IF why ^ Save THEN RETURN; 
comcmRequest. file ♦- tableRequest. file <- NIL; 
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ImageDefs.AddFi1eRequest[0comcmRequest]; 
ImageDefs .AddFileRequest[0tableRequest]; 
END; 

LookForCommands: PROCEDURE ■ 
BEGIN OPEN StreamDefs; 
s: STRING ^ [100]; 

ImageDefs. Removed eanupProcedure[@Cleanup]; 
IF comcmRequest.file » NIL THEN RETURN; 
SegmentDefs.LockFi1e[comcmRequest.f ile]; 
comcm ^ CreateByteStream[comcmRequest. file, Read]; 
[] <- ReadCmdStream[comcm,s,s]; 
IF comcm. endof [comcm] THEN 

BEGIN comcm. destroy[comcm]; comcm ^ NIL END; 
END; 

RepeatCommand: PROCEDURE ■ 
BEGIN OPEN lODefs. data; 
IF comcm-NIL THEN RETURN; 
WriteString['' 
Binding "L]; WriteString[source]; 
IF copycode THEN 

BEGIN 

WriteString[", code to "L]; 

WriteString[IF codef ile. length - THEN "BCD"L ELSE codefile]; 

END; 
IF copysymbols THEN 

BEGIN 

WriteString[". "L]; 

IF data. compress THEN WriteString["compressed "]; 

WriteString["symbols to "L]; 

WriteString[IF symbolf ile. length » THEN "BCD"L ELSE symbolfile]; 

END; 
WriteChar[CR]; 
RETURN 
END; 

SetSymbolCompression: PROCEDURE ■ 

BEGIN OPEN SymbolCompressorDefs, ControlDefs; 

IF LOOPHOLE[CompressSymbols,ProcDesc].tag » unbound THEN 

BEGIN OPEN lODefs; 

WriteLine["Symbol compression not available in this version"L]; 

SIGNAL Rubout; 

END; 
data. compress <- TRUE; 
END; 

GetCommand: PROCEDURE » 
BEGIN 

done: BOOLEAN <- FALSE; 
line: STRING ♦- [100]; 
file: STRING ^ [40]; 
c: CHARACTER; 
sense: BOOLEAN; 
sw: STRING ♦- [10]; 

Getltem: PROCEDURE RETURNS [BOOLEAN] • 
BEGIN 
RETURN[ 

IF comcm=NIL THEN ReadCmdString[l ine.f ile.sw] 
ELSE ReadCmdStream[comcm,f ile.sw]] 
END; 
GetSwitch: PROCEDURE RETURNS [c: CHARACTER] - 
BEGIN 

sense <- TRUE; 
WHILE i < sw. length DO 
c<-sw[i]; 
i <- i + 1; 

IF c ■ '- OR c ■ •'- THEN sense ♦- -sense 
ELSE EXIT; 
ENDLOOP; 
RETURN 
END; 

IF comcm - NIL THEN 
BEGIN OPEN lODefs; 
WriteString[" 
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Bind: "]; 

ReadLine[lin8]; WriteChar[CR]; 
END; 
source. length ^ 0; 

data.codefile. length ♦- data, symbolfile. length <- data.outputfile. length ^ 0; 
data. compress <- data.copycode +- data.copysymbols ^ data. debug ^ FALSE; 
localPause *- FALSE; 
file. length *- 0; 
WHILE file. length ■ DO 
IF -Getltem[3 THEN RETURN; 
i <- 0; 

WHILE i < sw. length DO 
SELECT GetSwitch[] FROM 

•d ■> IF file. length - THEN MiscDef s.Cal lDebugger[NIL] 

ELSE data. debug ^ sense; 
•c ■> data.copycode <- TRUE; 
's «> data.copysymbols ♦- TRUE; 

'x ■> BEGIN data.copysymbols *- TRUE; SetSymbolCompression[] END; 
'g "> done *- TRUE; 
'p "> IF file, length = THEN globalPause ^ sense 

ELSE localPause ♦- sense; 
'r -> 
BEGIN 

j: CARDINAL; 

FOR j IN [i. .sw. length) DO sw[j-i] <- sw[j]; ENDLOOP; 
sw. length ♦- sw. length - i; 
DefaultFileName[f ile, ".image"L]; 
TsstPciussPT * 

Run[file. sw I UNWIND »> NULL; ANY »> GO TO barf]; 
END; 
ENDCASE »> GO TO barf; 
REPEAT barf => SIGNAL lODef s . Rubout; 
ENDLOOP; 
ENDLOOP; 
DefaultFileName[f ile,".conf ig"L]; 
StringDef s. Appends tring[source, file]; 
WHILE -done AND Getltem[] DO 
i ♦- 0; 
WHILE i < sw. length DO 

SELECT (c^GetSwitch[]) FROM 
'c «> 
BEGIN 

Def aul tF i 1 eName[f i 1 e , " . code"L] ; 
data.codefile. length «- 0; 

StringDef s.AppendStri ng[ data. codef ile. file]; 
data.copycode ♦- TRUE; 
END; 
•s.'x -> 
BEGIN 

Def aul tFileName[f ile.". symbol s"L]; 
data. symbolfile. length ♦- 0; 

StringDef s. Appends tring[data. symbol file, f ile] ; 
data.copysymbols ^ TRUE; 
IF c^'x THEN SetSymbolCompression[]; 
END; 
•o •> 
BEGIN 

DefaultFileName[file.".bcd"L]; 
data.outputfile. length ^ 0; 

StringDef s. Appends tring[dat a. outputf ile, file]; 
END; 
'g •> done <- TRUE; 
ENDCASE «> SIGNAL lODefs. Rubout; 
ENDLOOP; 
ENDLOOP; 
END; 

Run: PROCEDURE [name, otherswitches : STRING] » 
BEGIN OPEN SegmentDefs; 
c: CHARACTER; 
i: CARDINAL; 

copy: StreamDefs .StreamHandle; 

copy <- StreamDefs. CreateByteStream[comcmRequest. file, Write+Append]; 
FOR i IN [0. .name. length) DO copy .put[copy, nameCi]] ENDLOOP; 
IF otherswitches. length ^ THEN 
BEGIN 
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copy.put[copy, '/]; 

FOR i IN [0. .otherswitches. length) DO 
copy. put [copy, otherswitches[i]]; 
ENDLOOP; 

END; 
copy.put[copy. ' ]; 

IF comcm ■ NIL THEN copy,put[copy, lODefs.CR] 
ELSE DO 

c ^ comcm. get[comcm I StreamDef s.StreamError «> GO TO done]; 

copy.put[copy, c]; 

REPEAT done ■> comcm. destroy[comcm]; 

ENDLOOP: 
copy.destroy[copy]; 
IF ExtensionIs[name, ".run"L] THEN 

BEGIN 

p: POINTER <- OsStaticDef s .OsStatics . EventVector; 

evi: TYPE = MACHINE DEPENDENT RECORD [ 
type: [0. .77778], length: [0..17B]]; 

pt 4- evi[6,StringDefs.WordsForBcplString[name.length]+l]; 

StringDef s.MesaToBcplString[name,p+l]; 

ImageDef s .StopMesa[]; 

END 
ELSE ImageDefs.RunImage[ 

NewFneSegment[NewFile[name, Read, Def aul tVersion], 1, 1, Read]]; 
END; 

Extensionis: PROCEDURE [name, ext: STRING] RETURNS [BOOLEAN] - 
BEGIN 

t: STRING ^ [40]; 
i: CARDINAL; 

IF name. length <« ext. length THEN RETURN[FALSE] ; 
FOR i IN[name. length-ext. length. .name. length) DO 
StringDef s.AppendChar[t,name[i]]; 
ENDLOOP; 
RETURN[StringDefs.EquivalentString[t,ext]] 
END; 

TestPause: PROCEDURE » 
BEGIN OPEN lODefs; 
IF mustwait AND globalPause THEN 

BEGIN 

WriteString["Type any character to exif'L]; 

[] *- ReadChar[]; 

END; 
END; 

WriteHerald: PROCEDURE - 

BEGIN OPEN TimeDefs, lODefs; 

t: STRING <- [20]; 

WriteString["Alto/Mesa Binder 4.1 of "L]; 

AppendDayTime[t,UnpackDT[data. binder Vers ion. time]]; 

t. length ♦- t. length - 3; 

WriteString[t]; 

WriteChar[CR]; 

t. length <- 0; 

AppendDayTime[t,UnpackDT[[0,0]]]; 

t. length ♦- t. length - 3; 

WriteString[t]; 

END; 

UncaughtSignal : PROCEDURE « 
BEGIN OPEN lODefs; 
message, signal: UNSPECIFIED; 

BcdErrorDefs.Error[error, "Fatal Binder Error"L]; 
[message, signal] ♦- SIGNAL TrapDef s.SendMsgSignal ; 
WriteString[" signal « "L]; 
WriteOctal[signal]; 
WriteString[", message » "L]; 
Wri teDec i ma 1 [message]; 
WriteString[" ("L]; 
WriteOctal [message]; 
WriteChar[')]; 
WriteChar[CR]; 
END; 



BcdControl .mesa 2-Sep-78 12:26:15 



i: CARDINAL; 

parsed, aborted: BOOLEAN; 
source: STRING ♦- [40]; 
root: BcdTreeDefs.TreeLink; 
mustwait: BOOLEAN ^ FALSE; 

-- request files 

ImageDef s.AddC1eanupProcedure[0Cleanup]; 

STOP; -- Wait for file lookup 

-- delete binder builder 
RemoveCode[ControlDefs.GetReturnLink[]]; 

LookForCommands[]; 
InitTableSegment[]; 

data. network <- MiscDefs.GetNetworkNumber[]; 
data. host <- OsStaticDefs.OsStatics.SerialNumber; 

WriteHerald[]; 

DO BEGIN OPEN lODefs; 

GetCommand[IRubout => GOTO Abort]; 
data.starttime <- BcdUtilDef s.TimeNow[]; 
IF source. length « THEN EXIT; 
data. rootfile. length ♦- 0; 
FOR i IN [0. .source. length) DO 
IF source[i] = '. THEN EXIT; 

StringDefs.AppendChar[data. rootfile. source[i]]; 
ENDLOOP; 
IF data.outputfile. length ■ THEN 
BEGIN 

StringDef s.AppendString[data.outputf ile, data. rootfile]; 
StringDef s.AppendString[data.outputf ile, ".bed"]; 
END; 
data.sourcestream <r NewByteStream[source,Read 1 ANY »> GO TO NoFile]; 
data.textdisplay ♦- FALSE; 
Initialize[]; 
BEGIN ENABLE 
BEGIN 

BcdErrorDefs.GetModule «> RESUME[BcdDef s.MTNull]; 
BcdErrorDefs.Getlnterface => RESUME[BcdDefs .EXPNull]; 
BcdErrorDefs.GetSti => RESUME[BcdTabDef s.STNull]; 
TableDef s .TableOverf low => 

IF tablePages < TablePageLimit THEN 
BEGIN 

LoadTable[tablePages+TablePageStep]; 
RESUME[[origin: tableOrigin, size: tableSize]]; 
END 
ELSE 

BEGIN data. errors ♦- TRUE; IF -data. debug THEN GOTO overflow END; 
UNWIND => Finalize[]; 

ANY => IF -data. debug THEN BEGIN UncaughtSignal[] ; GOTO error END 
END; 
BEGIN OPEN SegmentDefs; 
Swapln[parseg]; 
[complete:parsed, errors: data. errors] <- 

BcdLALRDefs.Parse[FileSegmentAddress[parseg]]; 
RemoveCode[BcdLALRDefs. Parse]; 
Unlock[parseg]; SwapOut[parseg]; 
END; 

IF -parsed THEN GO TO Failed; 

root ♦- BcdTreeDefs .mlpop[] ; RemoveCode[BcdTreeDefs.mlpop]; 
BcdControlDef s .BuildSemanticEntries[root]; 

RemoveCode[BcdControlDef S.Bui IdSemanticEn tries]; 
data.outputfti <- BcdUtilDef s.EnterFile[data.outputf ile]; 
BcdFileDefs.BuildFileTable[]; 
BcdControlDefs.LoadRoot[root]; 
BcdControlDefs.BindRoot[]; 

RemoveCode[BcdControlDefs.BindRoot]; 
RenioveCode[BcdControlDefs.LoadRoot]; 
IF data. errors THEN WriteLine["Errors detected; BCD not written"] 
ELSE 
BEGIN 

BcdControlDef s.WriteBcd[root]; 
IF data. errors THEN WriteLine["Errors detected; BCD file is invalid"]; 
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END; 
RemoveCocle[BcdControlDefs.WriteBcd]; 
BcdFileDefs.EraseFileTable[]; 
EXITS 

Failed ■> data. errors ♦■ aborted ^ TRUE; 
END; 
FinalizeC]; 

IF aborted THEN WriteLine[" Failedl"]; 
EXITS 

error ■> NULL; 

overflow «> IODefs.WriteLine["Storage Overflowl"]; 

NoFile -> 

BEGIN OPEN lODefs; 

WriteChar[CR]; 

WriteString["Can't open "]; 

WriteLine[source]; 

data. errors ♦- TRUE; 

END; 
Abort «> BEGIN data. errors ^ TRUE; lODef s .WriteChar[ ' 7] END; 
END; 

IF comcm § NIL AND (data. errors OR data. warnings) THEN 
BEGIN 

mustwait ^ TRUE; 
IF localPause THEN 

BEGIN OPEN lODefs; 

WriteString["Type any character to proceed"]; 

[] ^ ReadChar[]; 

END; 
END; 
ENDLOOP; 



TestPause[]; 
ImageDef s.StopMesa[]; 

END. 



